home *** CD-ROM | disk | FTP | other *** search
/ Alde ADA 1: #1 / CCCC 8804 Volume 1 Number 1 - Alde.iso / C / MISC / FUNC / PROFF.ARC / PINIT.C < prev    next >
Encoding:
C/C++ Source or Header  |  1988-02-21  |  1.4 KB  |  85 lines
  1. #include <stdio.h>
  2. #include <ctype.h>
  3. #include "proff.h"
  4. #include "debug.h"
  5.  
  6. /*
  7.  * finit - initialise parameters, set default values
  8.  *         used by .reset command
  9.  *
  10.  */
  11. finit()
  12. {
  13.    int i;
  14.  
  15.    inval = 0;
  16.    rmval = PAGEWIDTH;
  17.    tival = 0;
  18.    lsval = 1;
  19.    fill = YES;
  20.    ceval = 0;
  21.    ulval = 0;
  22.    boval = 0;
  23.    cchar = '.';
  24.    genesc = '_';
  25.    tjust[0] = LEFT;
  26.    tjust[1] = CENTER;
  27.    tjust[2] = RIGHT;
  28.    bsval = 0;
  29.    rjust = YES;
  30.    ulblnk = BLANK;
  31.  
  32.    for (i = 0; i < INSIZE; i++)
  33.       if (i % 8 == 0)
  34.          tabs[i] = YES;
  35.       else
  36.          tabs[i] = NO;
  37.  
  38.    lineno = 0;
  39.    curpag = 0;
  40.    newpag = 1;
  41.    plval = PAGELEN;
  42.    m1val = 3;
  43.    m2val = 2;
  44.    m3val = 2;
  45.    m4val = 3;
  46.    bottom = plval - m3val - m4val;
  47.    ehead[0] = '\n';
  48.    ehead[1] = EOS;
  49.    ohead[0] = '\n';
  50.    ohead[1] = EOS;
  51.    efoot[0] = '\n';
  52.    efoot[1] = EOS;
  53.    ofoot[0] = '\n';
  54.    ofoot[1] = EOS;
  55.    ehlim[0] = inval;
  56.    ehlim[1] = rmval;
  57.    ohlim[0] = inval;
  58.    ohlim[1] = rmval;
  59.    eflim[0] = inval;
  60.    eflim[1] = rmval;
  61.    oflim[0] = inval;
  62.    oflim[1] = rmval;
  63.    verbose = NO;
  64.    stopx = 0;
  65.    frstpg = 0;
  66.    lastpg = HUGE;
  67.    print = YES;
  68.    offset = 0;
  69.    outp = 0;
  70.    outw = 0;
  71.    outwds = 0;
  72.    bp = -1;
  73.    for (i = 0; i < 26; i++)
  74.       nr[i] = 0;
  75.  
  76.    CEon = FALSE;
  77.    ULon = FALSE;
  78.    BDon = FALSE;
  79.  
  80.    onlyrunoff = FALSE;
  81.    roman = FALSE;
  82.    bolding = YES;
  83.    autopar = NO;
  84. }
  85.